home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 1034 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  5.4 KB
  1. Date: Thu, 17 Feb 94 23:43:07 PST
  2. From: hyc@hanauma.jpl.nasa.gov (Howard Chu)
  3. Message-Id: <9402180743.AA10650@hanauma.jpl.nasa.gov>
  4. To: mint@atari.archive.umich.edu
  5. Subject: Working Psigintr call...
  6.  
  7. Ok, life is much happier with MiNT 1.10. Here's my working version of the
  8. stuff I sent out for comment before. Psigintr takes two arguments, an
  9. exception vector number, and a signal number. It uses setexc to point the
  10. exception handler for the given vector at a routine which just calls
  11. post_sig. So, the requested signal is sent to the process that originally
  12. called Psigintr... If you would care to see my double-buffered direct-to-disk
  13. sound play/record program that uses this, drop me a line.
  14.  -- Howard
  15.  
  16. *** 1.1    1994/02/17 16:16:26
  17. --- dos.c    1994/02/17 16:17:52
  18. ***************
  19. *** 603,605 ****
  20. --- 603,606 ----
  21.       dos_tab[0x13c] = s_alert;
  22.       dos_tab[0x13d] = t_malarm;
  23. +     dos_tab[0x13e] = p_sigintr;
  24.   }
  25. *** 1.1    1994/02/17 20:17:08
  26. --- dosmem.c    1994/02/17 20:19:58
  27. ***************
  28. *** 736,739 ****
  29. --- 736,741 ----
  30.       }
  31.   
  32. + /* cancel all user-specified interrupt signals */
  33. +     cancelsigintrs();
  34.   /* cancel all pending timeouts for this process */
  35.       cancelalltimeouts();
  36. *** 1.1    1994/02/17 16:16:26
  37. --- dossig.c    1994/02/17 23:35:26
  38. ***************
  39. *** 211,212 ****
  40. --- 211,319 ----
  41.       return 0;
  42.   }
  43. + 
  44. + /*
  45. +  * p_sigintr: Set an exception vector to send us the specified signal.
  46. +  */
  47. + 
  48. + typedef struct usig {
  49. +     int vec;        /* exception vector number */
  50. +     int sig;        /* signal to send */
  51. +     PROC *proc;        /* process to get signal */
  52. +     long oldv;        /* old exception vector value */
  53. +     struct usig *next;    /* next entry ... */
  54. + } usig;
  55. + 
  56. + static usig *usiglst;
  57. + extern long mcpu;
  58. + 
  59. + long ARGS_ON_STACK
  60. + p_sigintr(vec, sig)
  61. +     int vec;
  62. +     int sig;
  63. + {
  64. +     extern void new_intr();    /* in intr.spp */
  65. +     long vec2;
  66. +     usig *new;
  67. + 
  68. +     if (!sig)        /* ignore signal 0 */
  69. +         return 0;
  70. + 
  71. +     vec2 = (long) new_intr;
  72. + 
  73. + #ifndef ONLY030
  74. +     if (mcpu == 0)            /* put vector number in high */
  75. +         vec2 |= vec << 24;    /* byte of vector address */
  76. + #endif
  77. +     new = kmalloc(sizeof(usig));
  78. +     if (!new)            /* hope this never happens...! */
  79. +         return ENSMEM;
  80. +     new->vec = vec;
  81. +     new->sig = sig;
  82. +     new->proc = curproc;
  83. +     new->next = usiglst;        /* simple unsorted list... */
  84. +     usiglst = new;
  85. + 
  86. +     new->oldv = setexc(vec, vec2);
  87. +     return new->oldv;
  88. + }
  89. + 
  90. + /*
  91. +  * Find the process that requested this interrupt, and send it a signal.
  92. +  * Called at interrupt time by new_intr() from intr.spp, with interrupt
  93. +  * vector number on the stack.
  94. +  */
  95. + 
  96. + void ARGS_ON_STACK
  97. + sig_user(vec)
  98. +     int vec;
  99. + {
  100. +     usig *ptr;
  101. + 
  102. +     for (ptr = usiglst; ptr; ptr=ptr->next)
  103. +         if (vec == ptr->vec) {
  104. +             if (ptr->proc->wait_q != ZOMBIE_Q &&
  105. +                 ptr->proc->wait_q != TSR_Q) {
  106. +                 post_sig(ptr->proc, ptr->sig);
  107. +             }
  108. + #if 0    /* Search entire list, to allow multiple processes to respond to
  109. +        the same interrupt. (Why/when would you want that?) */
  110. +             break;
  111. + #endif
  112. +         }
  113. +     /*
  114. +      * Clear in-service bit for ST MFP interrupts
  115. +      */
  116. +     if (vec >= 64 && vec < 80) {
  117. +         char *mfp, c;
  118. + 
  119. +         if (vec < 72)        /* Register B */
  120. +             mfp = (char *)0xfffffa11L;
  121. +         else            /* Register A */
  122. +             mfp = (char *)0xfffffa0fL;
  123. +         c = 1 << (vec & 7);
  124. + 
  125. +         *mfp = ~c;
  126. +     }
  127. + }
  128. + 
  129. + /*
  130. +  * cancelsigintrs: remove any interrupts requested by this process, called
  131. +  * at process termination.
  132. +  */
  133. + void ARGS_ON_STACK
  134. + cancelsigintrs()
  135. + {
  136. +     usig *ptr, *old;
  137. +     short s = spl7();
  138. + 
  139. +     for (old=NULL, ptr=usiglst; ptr; old=ptr, ptr=ptr->next)
  140. +         if (ptr->proc == curproc) {
  141. +             setexc(ptr->vec, ptr->oldv);
  142. +             if (old)
  143. +                 old->next = ptr->next;
  144. +             else
  145. +                 usiglst = ptr->next;
  146. +             kfree(ptr);
  147. +         }
  148. +     spl(s);
  149. + }
  150. *** 1.1    1994/02/17 16:16:26
  151. --- intr.spp    1994/02/17 23:27:04
  152. ***************
  153. *** 71,75 ****
  154.       clr.w    -(sp)            ; yes, long frames: push a frame word
  155.   L_short1:
  156. !     pea    L_comeback        ; push fake PC
  157.       move.w    sr,-(sp)        ; push status register
  158.       move.l    _old_vbl+8,-(sp)    ; go service the interrupt
  159. --- 71,75 ----
  160.       clr.w    -(sp)            ; yes, long frames: push a frame word
  161.   L_short1:
  162. !     pea    L_comeback(pc)        ; push fake PC
  163.       move.w    sr,-(sp)        ; push status register
  164.       move.l    _old_vbl+8,-(sp)    ; go service the interrupt
  165. ***************
  166. *** 235,238 ****
  167. --- 235,268 ----
  168.       
  169.   ;
  170. + ; Generic routine for handling any user-specified interrupts. On 68000, the
  171. + ; vector number is stored in the high byte of the program counter.
  172. + ;
  173. +     XDEF    _new_intr
  174. + 
  175. + _new_intr:
  176. +     movem.l    d0-d2/a0-a2,-(sp)    ; save regs
  177. + 
  178. + %ifndef ONLY030
  179. +     tst.w    ($59e.w)    ; is frame format on stack?
  180. +     bne.s    nvec        ; yes, go use it
  181. +     bsr.s    ndummy        ; push PC to stack
  182. +     nop
  183. + ndummy:    
  184. +     move.w    (sp)+,d0    ; pop hi(PC) to d0
  185. +     addq.w    #2,sp        ; pop lo(PC) off stack
  186. +     lsr.w    #8,d0        ; move hi byte to vector number
  187. +     bra.s    ngot        ; continue
  188. + nvec:
  189. + %endif
  190. +     move.w    30(sp),d0    ; get frame word
  191. +     lsr.w    #2,d0        ; move vector offset to vector number
  192. + ngot:
  193. +     move.w    d0,-(sp)    ; push vector offset
  194. +     jsr    _sig_user    ; send signal
  195. +     addq.w    #2,sp            ; pop vector offset
  196. +     movem.l    (sp)+,d0-d2/a0-a2    ; restore regs
  197. +     rte
  198. + 
  199. + ;
  200.   ; New bus error handler for memory protection: get the ssp and
  201.   ; put it in the proc structure before calling
  202. *** 1.1    1994/02/17 16:33:50
  203. --- proto.h    1994/02/17 20:30:28
  204. ***************
  205. *** 167,170 ****
  206. --- 167,172 ----
  207.   long ARGS_ON_STACK p_sigpending P_((void));
  208.   long ARGS_ON_STACK p_sigpause P_((ulong mask));
  209. + long ARGS_ON_STACK p_sigintr P_((int vec, int sig));
  210. + void cancelsigintrs P_((void));
  211.   
  212.   /* filesys.c */
  213.